home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / cross / GBDK-2.0.lha / GBDK / lib / scroll_b.s < prev    next >
Text File  |  1998-10-01  |  273b  |  25 lines
  1.     .include    "global.s"
  2.  
  3.     .area    _CODE
  4.  
  5. _scroll_bkg::
  6.     LDA    HL,2(SP)    ; Skip return address
  7.     XOR    A
  8.     CP    (HL)        ; Is x != 0
  9.     JR    Z,1$
  10.  
  11.     LDH    A,(.SCX)    ; Yes
  12.     ADD    (HL)
  13.     LDH    (.SCX),A
  14. 1$:
  15.     INC    HL
  16.     XOR    A
  17.     CP    (HL)        ; Is y != 0
  18.     JR    Z,2$
  19.  
  20.     LDH    A,(.SCY)    ; Yes
  21.     ADD    (HL)
  22.     LDH    (.SCY),A
  23. 2$:
  24.     RET
  25.